//Description: Save and then QUIT

SAVESTATE PERSISTALL

AutoCodePlacement(OFF!) WP51CursorMovement(ON!) VARERRCHK(OFF!)

IF((?EditScreen*4)) GO(Begin) ELSE GO(STOP) ENDIF

LABEL(Begin)

SHOWPOSITION(0; -1) SHOWCODE(ClrLine!) SHOWATTRON(ReverseOff!)

SHOWATTRON(Bold!) SHOWTEXT("1") SHOWATTROFF(Bold!) SHOWTEXT(" ") SHOWATTRON(Bold!) SHOWTEXT("S") SHOWCODE(AttrNormal!) SHOWTEXT("AVE then QUIT; ")

SHOWATTRON(Bold!) SHOWTEXT("2") SHOWATTROFF(Bold!) SHOWTEXT(" ") SHOWATTRON(Bold!) SHOWTEXT("N") SHOWCODE(AttrNormal!) SHOWTEXT("o

SAVE then QUIT; ")

SHOWATTRON(Bold!) SHOWTEXT("3") SHOWATTROFF(Bold!) SHOWTEXT(" ") SHOWATTRON(Bold!) SHOWTEXT("C") SHOWCODE(AttrNormal!) SHOWTEXT("ontinue EDIT after SAVE; ")

SHOWATTRON(Bold!) SHOWTEXT("0") SHOWATTROFF(Bold!) SHOWTEXT(" ") SHOWATTRON(Bold!) SHOWTEXT("A") SHOWCODE(AttrNormal!) SHOWTEXT("bort") CHAR(VAR1) ASSIGN(VAR1; NTOC(VAR1) )

DISPLAY(OFF!)

SHOWPOSITION(0; -1) SHOWCODE(ClrScreen!) SHOWATTRON(ReverseOff!)

SHOWATTRON(Bold!) SHOWTEXT("..Please Wait..")SHOWATTROFF(Bold!)

SWITCH(VAR1)

CASEOF 1: CALL(save)

CASEOF "s": CALL(save)

CASEOF "S": CALL(save)

CASEOF 2: CALL(zilcho)

CASEOF "n": CALL(zilcho)

CASEOF "N":CALL(zilcho)

CASEOF 3: CALL(SaveGo)

CASEOF "c": CALL(SaveGo)

CASEOF "C":CALL(SaveGo)

ENDSWITCH

QUIT

LABEL(save)FileSave(?path+?Name;WordPerfect_60!)

ExitWordPerfect

LABEL(zilcho)ExitWordPerfect

LABEL(SaveGo)FileSave(?Path+?Name;WordPerfect_60!) RETURN

LABEL(STOP) BEEP

GETSTRING(VAR;

"YOU CANNOT QUIT OR SAVE FROM THIS SCREEN

- PRESS ""F1"" TO CONTINUE.")

IF(VAR="") DISCARD(VAR) ENDIF